home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / comm / tcp / rxsocket.lha / rxsocket / examples / ggu.rexx < prev    next >
OS/2 REXX Batch file  |  2000-11-28  |  767b  |  34 lines
  1. /* get the logged Genesis global user */
  2.  
  3. l="rmh.library";if ~show("L",l) then;if ~addlib(l,0,-30) then exit
  4. if AddLibrary("rexxsupport.library","rxsocket.library")~=0 then exit
  5.  
  6. prg = ProgramName("NOEXT")
  7.  
  8. parm.0.value="";parm.1.value=""
  9. if ~RMH_ReadArgs("LOGIN,PASSWD") then do
  10.     call PrintFault(IoErr(),prg)
  11.     exit
  12. end
  13.  
  14. if GenesisGetGlobalUser("USER") then do
  15.     say "--- Global User ---"
  16.     say "Name:   " user.NAME
  17.     say "Passwd: " user.PASSWD
  18.     say "Uid:    " user.UID
  19.     say "Gid:    " user.GID
  20.     say "Gecos:  " user.GECOS
  21.     say "Dir:    " user.DIR
  22.     say "Shell:  " user.SHELL
  23.     say "Flags:  " user.FLAGS
  24.     say "Maxtime:" user.MAXTIME
  25.     say "-------------------"
  26. end
  27. else call err "no Global User logged in"
  28. exit
  29.  
  30. err: procedure expose prg
  31. parse arg msg
  32.     say prg":" msg
  33.     exit
  34.